(FILECREATED " 5-JUL-83 13:07:00" {PHYLUM}<GABRIEL>CTAK.;1 857    

      changes to:  (VARS CTAKCOMS)
		   (FNS TAK TAK1 TAKCALLER))


(PRETTYCOMPRINT CTAKCOMS)

(RPAQQ CTAKCOMS ((FNS TAK TAK1 TAKCALLER)))
(DEFINEQ

(TAK
  (LAMBDA (X Y Z)                                            (* JonL " 5-JUL-83 12:51")
    (TAKCALLER X Y Z)))

(TAK1
  (LAMBDA (X Y Z)                                            (* JonL " 5-JUL-83 12:47")
    (COND
      ((NOT (ILESSP Y X))
	(RETFROM (QUOTE TAKCALLER)
		 Z))
      (T (TAK1 (TAKCALLER (SUB1 X)
			  Y Z)
	       (TAKCALLER (SUB1 Y)
			  Z X)
	       (TAKCALLER (SUB1 Z)
			  X Y))))))

(TAKCALLER
  (LAMBDA (X Y Z)                                            (* JonL " 5-JUL-83 12:47")
    (TAK1 X Y Z)))
)
(PUTPROPS CTAK COPYRIGHT (NONE))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (215 802 (TAK 225 . 353) (TAK1 355 . 669) (TAKCALLER 671 . 800)))))
STOP